home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / jade / lisp / ask.jlc < prev    next >
Text File  |  1995-03-09  |  929b  |  15 lines
  1. ;;; Source file: /usr/local/lib/jade/3.2/lisp/ask.jl
  2. ;;; Compiled by jsh@orcrist on Sun Oct 16 20:21:33 1994
  3. ;;; Jade 3.2
  4.  
  5. (defun yes-or-no-p (question) 102634 (jade-byte-code "D
  6.     4`E" [prompt concat question " (yes or no) " answer "yes"] 4))
  7.  
  8. (setq y-or-n-keymap (make-keylist))
  9.  
  10. (bind-keys y-or-n-keymap "n" (quote (throw (quote ask) nil)) "BS" (quote (throw (quote ask) nil)) "y" (quote (throw (quote ask) t)) "SPC" (quote (throw (quote ask) t)))
  11.  
  12. (defun y-or-n-p (question) 102706 (jade-byte-code "D13I²4
  13. 6    IKF H
  14. \"JF& H     HusvE" [unbound-key-hook old-u-k-h keymap-path old-k-p buf concat question " (y or n) " title-string (lambda nil (jade-byte-code "H    " [beep message title-string] 2)) (y-or-n-keymap) status-line-cursor message (jade-byte-code "±\"$IF%G±H" [buf old-k-p keymap-path old-u-k-h unbound-key-hook status-line-cursor] 3) (jade-byte-code "" [recursive-edit] 1) (quote ask)] 3))
  15.